FUNCTION DNAN()
    DOUBLE PRECISION DNAN
    DNAN = 0.0
END

SUBROUTINE CLQMN()
    IMPLICIT COMPLEX*16 (C,Z)
    IF (DIMAG(Z) == 0.0) LS=1
END
